www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\upload.asp
<!--#include file="upload_class.inc"--> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh-cn" lang="zh-cn"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>示例结果</title> <style type="text/css"> TABLE {border:1px green solid;margin-top:5px;} TD{border-bottom:1px #dddddd solid;height:20px;padding:3px 0 0 5px;} .head{background-color:#eeeeee;} </style> </head> <body style="font-size:12px;margin:0px;"> <% if request.QueryString("act")="upload" Then Dim Upload,path,tempCls,fName '=============================================================================== set Upload=new AnUpLoad '创建类实例 Upload.SingleSize=1024*1024*1024 '设置单个文件最大上传限制,按字节计;默认为不限制 Upload.MaxSize=1024*1024*1024 '设置最大上传限制,按字节计;默认为不限制 Upload.Exe="bmp|rar|pdf|jpg|gif" '设置合法扩展名,以|分割,忽略大小写 Upload.Charset="gb2312" '设置文本编码,默认为gb2312 Upload.openProcesser=false '禁止进度条功能,如果启用,需配合客户端程序 Upload.GetData() '获取并保存数据,必须调用本方法 '=============================================================================== if Upload.ErrorID>0 then '判断错误号,如果myupload.Err<=0表示正常 response.write Upload.Description '如果出现错误,获取错误描述 else if Upload.files(-1).count>0 then '这里判断你是否选择了文件 path=server.mappath("images/bg") '文件保存路径(这里是files文件夹) '保存文件(以新文件名保存) set tempCls=Upload.files("file1") tempCls.SaveToFile path,0 fName=tempCls.FileName set tempCls=nothing else response.Write "您没有上传任何文件!" end if end if set Upload=nothing '销毁类实例 %> <script type ="text/javascript"> document.write("文件上传成功!<a href='upload.asp'>继续上传</a>"); </script> <% else %> <form name="upload" method="post" action="upload.asp?act=upload" enctype="multipart/form-data" style="margin:0px;padding:0px;"> <input type ="file" name ="file1" /> <input type ="submit" value="上传" /> </form> <% end if %> </body> </html>